Admin_Special.asp 耐品图片管理系统标准版A - ASP源码程序

gusucode.com > 耐品图片管理系统标准版A > 耐品图片管理系统标准版A/Admin_Special.asp
    <!--#include file="Admin_ChkPurview.asp"-->
<%
'===============================================================
' 著作权号：中国国家版权局著作权登记号2004SR07385
' 版权所有：深圳市耐品科技开发有限公司 www.naipin.com
' 联系电话：0755-26611119　81234844　81234845
' 联系手机：13316911914
' 联系邮箱：naipin@naipin.com
'===============================================================
%>
<html>
<head>
<title>专题管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
.menu{
	background-color:#D4D0C8;
	width:97%;
	overflow:hidden
}
.classmenu{
	width:97%;
	background-color: #FFFFFF;
	border-bottom: 1 solid #000000;
	border-left: 1 solid #000000;
	border-right: 1 solid #000000;
}
</style>
<%
Dim rs
Title="专 题 管 理"
Link="<a href='Admin_SpecialOrder.asp' class='black'>专题排序</a> | <a href='Admin_SpecialAdd.asp' class='black'>添加专题</a>"

select case request("specialtype")
	case 1
		response.redirect "Admin_ArtSpecial.asp"
	case 2
		IF Request("page")<>"" Then currentPage=cint(request("page")) Else currentPage=1
		With Behind
			.WriteHtmlHead
			.WriteHtmlTop Title,Link
			.MaxPerPage	 = 50
			.TopPage	 = False
			.BottomPage	 = True
			.SqlRecord	 = "Select * From Nt_Special order by RootID,OrderID"
			.InitText	 = "个专题"
			.strFileName = "Admin_Special.asp?specialtype=2&"
			.ShowRecord CurrentPage
			.WriteHtmlEnd
		End With
		Set Netout = Nothing

	case else
		call selectspecial()
end select
Sub selectspecial()
		With Behind
			.WriteHtmlHead
			.WriteHtmlTop Title,Link
		End With
		Set Netout = Nothing
	response.write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' Class='border'><tr class='tdbg'><td><a href=?specialtype=1 class='black'>文章专题</a></td><td><a href=?specialtype=2 class='black'>图片专题</a></td></tr></table>"
end Sub
Sub ShowContent(MaxPerPage)%>
<div id=menuDiv style='z-index: 5; visibility: hidden; width: 1px; position: absolute; height: 1px;'></div>
<script language="javascript">
function myMenu(MenuID){
	+'<a href="Admin_SpecialModify.asp?ID='+MenuID+'" class="black">修改专题</a><br>'
	+'<a href="Admin_SpecialDel.asp?ID='+MenuID+'&Action=Del" class="black"  onClick="return ConfirmOption();">删除专题</a><br>';
	return html;
}
</script>
<table width="100%" border="0" cellpadding="2" cellspacing="1" class="border">
  <tr> 
    <td class="tdbg1" width="6%" height="20" align="center">ID</td>
    <td class="tdbg1" width="33%" align="center">专题名称</td>
    <td class="tdbg1" width="11%"><b>组图数</b></td>
    <td width="11%" class="tdbg1"><b>图片数</b></td>
    <td class="tdbg1" width="50%" align="center">操 作 选 项</td>
  </tr>
  <%i=0
  Set ShowFirst=rs("ShowFirst"):Set ID=rs("ID")
  Do While Not rs.eof And i<MaxPerPage%>
  <tr onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#EBEBEB'"> 
    <td align="right"><%=ID%></td>
    <td>
		<%
		Response.Write "<img src='Images/tree_folder3.gif' width='15' height='15' valign='abvmiddle'>" 
		Response.Write "<a href='Admin_Group.asp?SpecialID=" & ID & "' class='black'>" & rs("SpecialName") & "</a>"
		%>
	</td>
    <td align="center">
		<%
		HavePics = Conn.Execute("select Count(*) from NT_title where SpecialID="&ID)(0)
		Response.Write HavePics
		%>
	</td>
    <td align="center">
		<%= Conn.Execute("select Count(*) from Nt_ImgBook where TitleId In(Select TitleId from Nt_Title Where SpecialID="&ID&")")(0)%>
	</td>
    <td align="center"><a href="Admin_SpecialModify.asp?ID=<%=ID%>" class="black">修改专题</a> | <a href="Admin_SpecialDel.asp?ID=<%=ID%>&Action=Del" class="black" onClick="return confirm('确实要删除这个专题吗？');">删除专题</a></td>
  </tr>
  <%i=i+1
	rs.MoveNext
	loop
	rs.close%>
</table>
<%
end sub
%>